use "Water-Right_Priority.dta", clear



**** Figure 1: Share of IDs' Collective Water Entitlements Ceded in Negotiation,
**** By the Relative Priority of the Right in an ID's portfolio
********************************************************************************
********************************************************************************

colorpalette #fafa6e #2a4858, ipolate(30, HCL) nograph
graph twoway (bar pctchangeID decile, barwidth(1) bcolor("`r(p25)'")) (scatter pctchangeID decile, msymbol(none) mlabel(pctchangeIDst)  mlabposition(12) mlabcolor(black) mlabsize(vlarge)), xlabel(.5 "0" 1.5 `"" " "Junior""' 2.5 "20%" 4.5 "40%" 6.5 "60%" 8.5 "80%" 9.5 `"" " "Senior""' 10.5 "100%" , notick labsize(huge)) ylabel(0 "0" 2 "2%"  4 "4%", notick labsize(huge))  xtitle("Water Right Priority Percentile Rank (%)", size(huge) color(black)) ytitle("%∆ Pre-Settlement AFY" , size(huge) color(black)) xsize(20) ysize(9)  legend(off) graphregion(margin(0 6 0 0))




**** Table 2: Relative Priority of Individual Water Right Ceded in Negotiation
********************************************************************************
********************************************************************************

reg pctrank xquadPct x2quadPct if wrdelta<0, cluster(id)
reg pctrank xquadPct x2quadPct hayAdj d12t50c if wrdelta<0, cluster(id)
reg pctrank xquadPct x2quadPct hayAdj d12t50c USBRpct reslnprime if wrdelta<0, cluster(id)
reg pctrank xquadPct x2quadPct hayAdj d12t50c USBRpct reslnprime UrbanGrowth if wrdelta<0, cluster(id)
reg pctrank xquadPct x2quadPct hayAdj d12t50c USBRpct reslnprime UrbanGrowth afAcrePre comp if wrdelta<0, cluster(id)
reg pctrank xquadPct x2quadPct hayAdj d12t50c USBRpct reslnprime UrbanGrowth afAcrePre comp usbr if wrdelta<0, cluster(id)


**** Appendix Table A7: Relative Priority of Water Right Ceded in Negotiation
**** Robustness check 1
********************************************************************************
********************************************************************************

reg pctrank xquadPct x2quadPct usbr if wrdelta<0, cluster(id)
reg pctrank xquadPct x2quadPct usbr reslnprime if wrdelta<0, cluster(id)
reg pctrank xquadPct x2quadPct usbr reslnprime respopAdj if wrdelta<0, cluster(id)
reg pctrank xquadPct x2quadPct usbr reslnprime respopAdj hayAdj d12t50c if wrdelta<0, cluster(id)
reg pctrank xquadPct x2quadPct usbr reslnprime respopAdj hayAdj d12t50c UrbanGrowth if wrdelta<0, cluster(id)
 
